
(import
  (scheme base)
  (scheme read)
  (scheme write)
  (scheme load))

(load "./procker.scm")

(function (factorial n)
  (var i)
  (var (p 1))
  (for ((=! i 1) (<= i n) (++ i))
    (*= p i))
  p)

(display (factorial 10))
(newline)
